Private Sub cbo_Change()

    Me.cbo.ListIndex = Me.cbo.ListIndex

End Sub